home *** CD-ROM | disk | FTP | other *** search
- on exitFrame
- global gDiskRequested, gCDinDrive, gDeveloping, gvolumeName, gStartPath, gDoorClosed, gOperatingSystem
- case gDiskRequested of
- (-1):
- swapCast(2, 5)
- set the ink of sprite 2 to 8
- set the loc of sprite 2 to point(320, 240)
- hideButton()
- if not initCDxlib() then
- put "Could not create instance of CD XObject"
- end if
- set gDiskRequested to 201
- 1, 2:
- set the mouseUpScript to EMPTY
- swapCast(2, 4 + gDiskRequested)
- set the ink of sprite 2 to 8
- set the loc of sprite 2 to point(320, 240)
- hideButton()
- updateStage()
- if initCDxlib() then
- displayButton("eject", 1)
- set gDiskRequested to gDiskRequested + 100
- set gDoorClosed to 0
- else
- displayButton("manual", 0)
- set gDiskRequested to gDiskRequested + 200
- end if
- 101, 102:
- nothing()
- 201, 202:
- case CDisReady() of
- 1, (-1):
- set gDiskRequested to gDiskRequested + 100
- end case
- 301, 302:
- processDisk(gDiskRequested - 300)
- set gDiskRequested to gDiskRequested - (gDiskRequested / 100 * 100)
- exit
- otherwise:
- closeXLib()
- if gDeveloping then
- halt()
- else
- quit()
- end if
- end case
- go(char 1 to 3 of gOperatingSystem)
- end
-